! define parameter and data object

module problem_class
 
implicit none 

public

type problem_type
integer :: sr=0, n=0, m=0 , ps=0 , qs=0, npts=0, nf=0, rtn=0, Mm=0, P=0; 
double precision :: ori=0d0, begin=0d0, over=0d0, winLength=0d0, Nw=0d0,fl=0d0, fh=0d0, step=0d0, lat0=0d0, lon0=0d0, t1=0d0
double precision :: uxRange(2), uyRange(2)
double precision, dimension(:), allocatable :: lat, lon , rdis, az, rr, tt
character, dimension(:,:), allocatable :: nm  
double precision, dimension(:,:), allocatable :: r , x, xori, Pm, Pw ,E
double precision, dimension(:,:,:), allocatable :: PPm , PPw 
complex(8), dimension(:,:,:), allocatable :: Sxy,alib
end type problem_type

end module problem_class
